home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2002 November / CD 1 / APC0211D1.ISO / workshop / prog / files / ActivePerl-5.6.1.633-MSWin32.msi / _f0eef9f6e6f9d61944a26cdeeae00afd < prev    next >
Encoding:
Text File  |  2002-06-17  |  727 b   |  26 lines
  1. #include "zstream.h"
  2. #include <math.h>
  3. #include <stdlib.h>
  4. #include <iomanip.h>
  5.  
  6. void main() {
  7.     char h[256] = "Hello";
  8.     char* g = "Goodbye";
  9.     ozstream out("temp.gz");
  10.     out < "This works well" < h < g;
  11.     out.close();
  12.  
  13.     izstream in("temp.gz"); // read it back
  14.     char *x = read_string(in), *y = new char[256], z[256];
  15.     in > y > z;
  16.     in.close();
  17.     cout << x << endl << y << endl << z << endl;
  18.  
  19.     out.open("temp.gz"); // try ascii output; zcat temp.gz to see the results
  20.     out << setw(50) << setfill('#') << setprecision(20) << x << endl << y << endl << z << endl;
  21.     out << z << endl << y << endl << x << endl;
  22.     out << 1.1234567890123456789 << endl;
  23.  
  24.     delete[] x; delete[] y;
  25. }
  26.